Aminet 5/Aminet 5 - March 1995.iso/Aminet/misc/amag/AM9410_6.lha/Battle Field Creator/Install_Disk

Text File | 1994-09-19 | 5KB | 195 lines

(makeassign "BFC" (pathonly @icon))

(message
        "Installation des Battle Field Creators.\n"
        "---------------------------------------\n"
        "Für die Installation wird eine formatierte Diskette mit dem"
        " Namen \"BFC_USER:\" benötigt.\n"
        " Liegt eine solche Diskette schon bereit können Sie gleich loslegen."
)

(set drive
        (askchoice
                (prompt "Wieviele Diskettenlaufwerke besitzt ihr Rechner ?")
                (help "Geben Sie einfach an,ob Sie ein Diskettenlaufwerk oder mehrere besitzen.")
                (choices "EIN Laufwerk" "mehr als ein Laufwerk")
                (default 0)
        )
)

(set dir "BFC_USER:")

(set bi2
        (askoptions
                (prompt "Welche Diskette besitzen Sie ?")
                (help @askoptions-help)
                (choices "Battle Isle (TM)" "Data Disk 1" "Data Disk 2")
                (default 1)
        )
)

(if (= (BITAND bi2 5) 0)
        (abort "Ohne die Battle Isle (TM) Disketten, können Sie den Battle Field Creator nicht nutzen!")
)


(if (= drive 0)
        ((makedir "RAM:BFC")
        (set dir2 "RAM:BFC"))
        (set dir2 dir)
)

(makedir (tackon dir2 "MAPS"))

(set Libs bi2)

(if (= (BITAND LIBS 1) 1)
        ((makedir (tackon dir2 "LIB0"))
        (makedir (tackon dir2 "Computer"))
        (set z1 ("Assign Computer: \"%s\"\nAssign LIB0: \"%s\"\n" (tackon dir "Computer") (tackon dir "LIB0")))
        )
)

(if (= (BITAND Libs 2) 2)
        ((makedir (tackon dir2 "LIB1"))
        (set z2("Assign LIB1: \"%s\"\n" (tackon dir "LIB1")))
        )
)

(if (= (BITAND Libs 4) 4)
        ((makedir (tackon dir2 "LIB2"))
        (set z3 ("Assign LIB2: \"%s\"\n" (tackon dir "LIB2")))
        )
)

(makedir (tackon dir2 "s"))

(textfile
        (dest (tackon dir2 "Battle Field Creator"))
        (append "Assign BFC: BFC_USER:\n")
        (append z1)
        (append z2)
        (append z3)
        (append ("\"%s\"\n" (tackon dir "BFC")))
)

(textfile
        (dest (tackon dir2 "s/StartUp-Sequence"))
        (append "Assign ENV: RAM:\n")
        (append "Assign BFC: BFC_USER:\n")
        (append z1)
        (append z2)
        (append z3)
        (append ("\"%s\"\n" (tackon dir "BFC")))
)

(makedir (tackon dir2 "Fonts"))
(makedir (tackon dir2 "Fonts/BIC"))

(copyfiles
        (prompt "Kopiere Dateien nach %s" dir2)
        (source "BFC:FONTS")
        (dest (tackon dir2 "FONTS"))
        (choices "BIC.font")
)

(copyfiles
        (prompt "Kopiere Dateien nach %s" dir2)
        (source "BFC:FONTS/BIC")
        (dest (tackon dir2 "FONTS/BIC"))
        (choices "7" "9")
)

(copyfiles
        (prompt "Kopiere Hauptprogramm nach %s" dir2)
        (source "BFC:")
        (dest dir2)
        (choices "BFC")
)

(copyfiles
        (source "BFC:DATA")
        (dest dir2)
        (choices "Battle Field Creator.info")
)

(makedir (tackon dir2 "c"))
(copyfiles
        (dest (tackon dir2 "c"))
        (source "C:")
        (choices "IconX" "Assign")
)
(makedir (tackon dir2 "libs"))
(copyfiles
        (dest (tackon dir2 "libs"))
        (source "BFC:Libs")
        (choices "diskfont.library")
)


(if (= drive 0)
        ((message
                "Bitte wechseln Sie nun die Original BFC-Diskette gegen eine formartierte Diskette mit dem Namen \"BFC_USER:\" aus."
        )
        (copyfiles
                (source "RAM:BFC")
                (dest "BFC_USER:")
                (all)
        )
        (delete "RAM:BFC/BFC")
        (delete "RAM:BFC/Battle Field Creator.info")
        (delete "RAM:BFC/Battle Field Creator")
        (delete "RAM:BFC/c/IconX")
        (delete "RAM:BFC/c/Assign")
        (delete "RAM:BFC/libs/diskfont.library")
        (delete "RAM:BFC/FONTS/BIC/7")
        (delete "RAM:BFC/FONTS/BIC/9")
        (delete "RAM:BFC/FONTS/Bic.font")
        (delete "RAM:BFC/S/StartUp-Sequence")
        )
)

(if (= (BITAND LIBS 1) 1)
        ((copyfiles
                (source "BI2:LIB")
                (dest (tackon dir2 "LIB0"))
                (choices "PART.LIB" "PART.TAB" "UNIT.LIB" "UNIT.TAB")
        )
        (copyfiles
                (source "BI2:MAP")
                (dest (tackon dir2 "Computer"))
                (pattern "#?.com")
        ))

)

(if (= (BITAND Libs 2) 2)
        (copyfiles
                (source "BI6:LIB")
                (dest (tackon dir2 "LIB1"))
                (choices "PART.LIB" "PART.TAB")
        )
)

(if (= (BITAND Libs 4) 4)
        (copyfiles
                (source "DD2:LIB")
                (dest (tackon dir2 "LIB2"))
                (choices "PART.LIB" "UNIT.LIB")
        )
)
(if (= drive 0)
        ((message
                "Bitte legen Sie erneut die \"BFC_USER:\" Diskette ein."
        )
        (copyfiles
                (source "RAM:BFC")
                (dest "BFC_USER:")
                (all)
        )
        )
)